;:sys65418
sys36864
	;.opt oo
	*= 51000
fn	=92
	sei
	jsr 65418
	jsr $e453
	lda #<neubef
	ldy #>neubef
	sta 776
	sty 777
	cli
	lda #<on
	ldy #>on
	jmp $ab1e
on	.byt 13
	.byte "quick-save rev1    nh 3.92"
	.byt 13
	.byte "von nikolaus heusler"
	.byt 13
	.byte "\x11aktivieren mit ! oder !nr"
	.byt 13
	.byte "abbruch mit _"
	.byt 13,0
name	.byte "datei "
number	.byte "    aborted at "
	brk
nummer	brk
irq	brk
errtxt	.byte "spoolinG"
aktiv	brk
pot	.byt 100,10
neubef	jsr 115
	cmp #"!"
	beq save
	cmp #"_"
	beq abort
	jsr 121
	jmp $a7e7
abort	jsr 115
	lda aktiv
	beq alles
	jsr fertig
	lda #0
	sta irq
	lda #<name
	ldy #>name
	jsr $ab1e
	ldx 247
	lda 248
	jsr $bdcd
	jsr $aad7
alles	jmp $a7ae
stoer	jmp stoerung
save	lda aktiv
	bne stoer
	jsr 115
	beq nichts
	jsr $b7f4
	txa
	stx nummer
	jmp dez
nichts	inc nummer
	lda nummer
dez	ldy #0
dez2	ldx #"0"
dez1	cmp pot,y
	bcc dez3
	sbc pot,y
	inx
	bne dez1
dez3	pha
	txa
	ora #48
	sta number,y
	pla
	iny
	cpy #2
	bcc dez2
	ora #48
	sta number+2
	ldx #<name
	ldy #>name
	lda #9
	jsr $ffbd
	jsr 63123
	ldx #8
	lda #fn
	ldy #1
	jsr $ffba
	jsr $ffc0
	ldx #fn
	jsr $ffc9
	lda 43
	sta 247
	jsr $ffd2
	lda 44
	sta 248
	jsr $ffd2
	lda 45
	sta 249
	lda 46
	sta 250
	jsr $ffcc
	sei
	lda #<int
	ldy #>int
	sta 788
	sty 789
	lda #0
	sta irq
	cli
	lda #<stoerung
	ldy #>stoerung
	sta 794
	sty 795
	sta 796
	sty 797
	sta 798
	sty 799
	sta 800
	sty 801
	sta 816
	sty 817
	sta 818
	sty 819
	lda #<neudir
	ldy #>neudir
	sta 770
	sty 771
	lda #128
	sta aktiv
	ora 0
	sta 0
	jmp $a7ae
int	lda irq
	beq frei
	jmp $ea7e
frei	inc irq
	ldx #fn
	jsr $f250
	ldy #0
	lda (247),y
	jsr $ffd2
	jsr $f333
	inc 247
	bne noinc
	inc 248
noinc	lda 248
	cmp 250
	bcc more
	bne fertig
	lda 247
	cmp 249
	bcc more
	jsr fertig
more	lda #0
	sta irq
	jmp 59953
stoerung	cli
	lda #<errtxt
	sta 34
	lda #>errtxt
	jmp $a445
fertig	lda #fn
	jsr $f291
	lda #0
	sta aktiv
	lda #127
	and 0
	sta 0
	jmp 65418
neudir	jsr $a560
	stx $7a
	sty $7b
	jsr 115
	tax
	beq neudir
	ldx #-1
	stx $3a
	bcc ziffer
	jmp $a496
ziffer	ldx aktiv
	beq erlaubt
	jmp stoerung
erlaubt	jmp $a49c